home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_1[cbm_1983].nbz / testcard (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.2 KB  |  342 lines
  1. 5 REM SPACE FOR SPRITES                                                    X
  2. 10 REM SPACE FOR SPRITES                                                    X
  3. 15 REM SPACE FOR SPRITES                                                    X
  4. 20 REM SPACE FOR SPRITES                                                    X
  5. 25 REM SPACE FOR SPRITES                                                    X
  6. 30 REM SPACE FOR SPRITES                                                    X
  7. 35 REM SPACE FOR SPRITES                                                    X
  8. 40 REM SPACE FOR SPRITES                                                    X
  9. 45 REM SPACE FOR SPRITES                                                    X
  10. 50 REM SPACE FOR SPRITES                                                    X
  11. 55 REM SPACE FOR SPRITES                                                    X
  12. 60 REM SPACE FOR SPRITES                                                    X
  13. 65 REM SPACE FOR SPRITES                                                    X
  14. 70 REM SPACE FOR SPRITES                                                    X
  15. 75 REM SPACE FOR SPRITES                                                    X
  16. 90 DIM SP(10),N(60),V%(500,3),W%(500,3),C$(16)
  17. 95 GOTO10210:SKIPROUND MUSIC PLAYER AND MAIN LOOP WHICH ARE TIME-CRITICAL
  18. 100 REMPLAY A TUNE(NV VOICES,KK NOTES IN PART 1
  19. 105 FORJ=1TONV:P(J)=0:D(J)=0:T(J)=TI:NEXTJ
  20. 110 FORJ=1TONV
  21. 115 IF T(J)>TI THEN 130
  22. 120 T(J)=T(J)+D(J):X=V%(P(J),J)
  23. 125 Y=W%(P(J),J):P(J)=P(J)+1:D(J)=Y*DV:M(J)=N(X)
  24. 130 NEXTJ
  25. 140 F=0
  26. 145 FORJ=1TONV
  27. 150 IFT(J)<=TITHEN SP(J+7)=M(J):F=1
  28. 155 NEXTJ
  29. 160 IFF=0THEN 145
  30. 165 IFP(1)<=KKTHEN110
  31. 170 RETURN
  32. 500 GOTO5000 :REM POINTER TO MOVED CODE
  33. 2000 REM GOLDEN RAIN(1)
  34. 2005 SP(7)=A+64080
  35. 2010 ONCWGOTO2020,2040,2045,2050
  36. 2020 IFRND(0)>0.04THEN 2100
  37. 2030 CW=2:CN=50:POKE2040,34:POKEV+21,PEEK(V+21)+1:POKEV+39,1+7*RND(0)
  38. 2035 SP(10)=NO:GOTO2100
  39. 2040 CW=3:POKE2040,35:GOTO2100
  40. 2045 CW=4:POKE2040,36:GOTO2100
  41. 2050 CW=2:POKE 2040,34:CN=CN-1
  42. 2060 IFCN=0THEN CW=1:POKEV+21,PEEK(V+21)-1
  43. 2100 REM GROUND EXPLOSIONS
  44. 2110 ONGRGOTO2120,2140,2145,2150
  45. 2120 IFRND(0)>0.1 THEN 2540
  46. 2130 GR=2:POKE2041,37:POKEV+21,PEEK(V+21)+2:POKEV+40,1+7*RND(0)
  47. 2135 SP(10)=NO:GOTO2540
  48. 2140 GR=3:POKE2041,38:GOTO2540
  49. 2145 GR=4:POKE 2041,39:GOTO2540
  50. 2150 GR=1:POKE V+21,PEEK(V+21)-2
  51. 2540 REM ROCKET(2)
  52. 2610 ONQAGOTO2620,2670,2690,2710,2730
  53. 2620 IFRND(0)>0.05ORBA=4 THEN2740
  54. 2630 QY=250:QX=INT(350*RND(0)):QV=-19
  55. 2640 QH=INT((350-QX-300*RND(0))/20):POKE2045,33:POKEV+44,1+7*RND(0)
  56. 2650 SP(5)=A+256*QX+QY
  57. 2660 POKEV+21,PEEK(V+21)+32:QA=2:GOTO2740
  58. 2670 QX=QX+QH:QY=QY+QV:QV=QV+1
  59. 2680 SP(5)=A+256*QX+QY:IFQV=3THENQA=3:SP(10)=NO:QN=2:POKE2045,37:GOTO2740
  60. 2690 QN=QN-1:IF QN=0THEN QN=3:QA=4:POKE2045,38
  61. 2700 GOTO2740
  62. 2710 QN=QN-1:IFQN<>0THEN GOTO2740
  63. 2715 QN=5:QA=5:POKE2045,39:GOTO2740
  64. 2720 SP(5)=SP(5)-11*257:GOTO2740
  65. 2730 QN=QN-1:IFQN<>0THEN 2740
  66. 2732 QA=1:POKEV+21,PEEK(V+21)-32
  67. 2735 POKEV+23,PEEK(V+23)AND223:POKEV+29,PEEK(V+29)AND223
  68. 2740 REM BALLOON
  69. 2810 ONBAGOTO2820,2850,2870,2882
  70. 2820 IF RND(0)>0.02THEN 3000
  71. 2830 SP(6)=A+350*256+80:BP=350 :BA=2:POKE2046,42 :POKEV+23,PEEK(V+23)+64
  72. 2835 POKE V+29,PEEK(V+29)+64
  73. 2840 POKEV+45,1+7*RND(0):POKEV+21,PEEK(V+21)+64:GOTO3000
  74. 2850 BP=BP-1:SP(6)=SP(6)-256
  75. 2860 IFBP=0THENPOKEV+21,PEEK(V+21)-64:BA=1
  76. 2865 IF BP=0THENPOKEV+23,PEEK(V+23)-64:POKEV+29,PEEK(V+29)-64
  77. 2867 GOTO3000
  78. 2870 BN=BN-1:IFBN<>0THEN3000
  79. 2880 BA=4:POKE2046,41:POKEV+45,1:BP=80:POKEV+21,PEEK(V+21)+64:GOTO3000
  80. 2882 S1=0:S2=0:IFT1<TQTHENS1=N(V%(P1,1)):T1=T1+DV*W%(P1,1):P1=P1+1
  81. 2884 IFT2<TQTHEN S2=N(V%(P2,2)):T2=T2+DV*W%(P2,2):P2=P2+1
  82. 2886 SP(8)=S1:SP(9)=S2
  83. 2890 BP=BP+1:IFBP=213THENPOKEV+21,PEEK(V+21)-64:BA=1
  84. 2900 SP(6)=SP(6)+1
  85. 3000 P=PEEK(V+30)AND96:IF(P<>96)OR(BA<>2)OR(QA<>2)THEN 3500
  86. 3010 REM ROCKET/BALLOON COLLISION
  87. 3015 P1=0:P2=0:T1=TQ+5:T2=T1
  88. 3020 QA=3:QN=2:POKE2045,39:SP(10)=NO:BN=8:BA=3:POKEV+21,PEEK(V+21)-64
  89. 3030 SP(6)=SP(6)+1028:POKE V+23,PEEK(V+23)-64:POKEV+29,PEEK(V+29)-64:GOTO2000
  90. 3500 TQ=TQ+1:POKE V+21,PEEK(V+21)OR128:IFTQ<500 OR  BA<>1THEN 2000
  91. 3505 FORJ=1TO1000:NEXTJ
  92. 3510 FORJ=0TO10:SP(J)=0:POKEVV+24,0
  93. 3515 POKEV+21,0
  94. 3520 PRINT"[147]     FINALLY, TWO PIECES  "
  95. 3525 PRINT
  96. 3530 PRINT"     BY  WOLFGANG AMADEUS
  97. 3540 [153]"           M O Z A R T
  98. 3550 PRINT:PRINT"  FIRST,   ANDANTE"
  99. 3560 GOSUB 5040:GOSUB100
  100. 3570 PRINT:PRINT"  NEXT, AN  ALLEGRO "
  101. 3580 GOSUB 5040:GOSUB100
  102. 3590 RESTORE:
  103. 3600 PRINT:PRINT "THE WHOLE PROGRAM WILL NOW BE REPEATED"
  104. 3700 FORJ=832TO1000:READA:NEXTJ
  105. 3710 POKEVV+4,0:POKEVV+11,0:POKEVV+18,0:POKEVV+24,0
  106. 3720 GOTO10290
  107. 4000 C$(1)="   [144]               [146] BLACK"
  108. 4010 C$(2)="                  [146] WHITE"
  109. 4030 C$(3)="                  [146] RED"
  110. 4040 C$(4)="   [159]               [146] CYAN"
  111. 4050 C$(5)="   [156]               [146] PURPLE"
  112. 4060 C$(6)="                  [146] GREEN"
  113. 4070 C$(7)="                  [146] BLUE"
  114. 4080 C$(8)="   [158]               [146] YELLOW"
  115. 4090 C$(9)="   [129]               [146] ORANGE"
  116. 4100 C$(10)="   [149]               [146] BROWN"
  117. 4110 C$(11)="   [150]               [146] LIGHT RED"
  118. 4120 C$(12)="   [151]               [146] DARK GREY"
  119. 4130 C$(13)="   [152]               [146] MEDIUM GREY"
  120. 4140 C$(14)="   [153]               [146] LIGHT GREEN"
  121. 4150 C$(15)="   [154]               [146] LIGHT BLUE"
  122. 4160 C$(16)="   [155]               [146] LIGHT GREY"
  123. 4170 POKE 53280,1:POKE53281,6:POKE208*256+21,0
  124. 4180 PRINT"[147] HELLO. WELCOME TO THE CBM COMMODORE 64[146]"
  125. 4190 PRINT
  126. 4200 PRINT" HERE ARE SOME BARS OF COLOUR TO HELP
  127. 4210 [153]"        ADJUST YOUR SET"
  128. 4220 [153]
  129. 4230 [137]10300
  130. 5000 [143] SET UP NOTES IN N
  131. 5010 A[178]2[174]31[170]33[172]2[174]16:Q[178]720:P[178]2[174](1[173]12)
  132. 5020 [129]JJ[178]1[164]60: N(JJ)[178]A[170]Q:Q[178]Q[172]P:[130]JJ
  133. 5030 [143] ENTER HERE IF N ALREADY SET UP
  134. 5040 VV[178]212[172]256:N(5)[178]A
  135. 5050 [135] NV,NS,AT,D,S,DV
  136. 5060 [129]JJ[178]1[164]NV:PP(JJ)[178]0:[130]JJ
  137. 5065 [129]KK[178]1[164]NS
  138. 5070 [135]DN
  139. 5075 [139]DN[177]1 [167][129]JJ[178]1[164]NV:PQ(JJ)[178]PP(JJ):[130]JJ
  140. 5078 [129]JJ[178]1[164]NV
  141. 5080 [135]A$:[135]B$
  142. 5090 [129]TT[178]1[164][195](A$)
  143. 5100 V%(PP(JJ),JJ)[178][198]([202](A$,TT,1))[171]35
  144. 5110 W%(PP(JJ),JJ)[178][198]([202](B$,TT,1))[171]48:PP(JJ)[178]PP(JJ)[170]1
  145. 5120 [130]TT,JJ
  146. 5121 [139] DN[178]1[167] 5129 :[143] COPY REPEATED BAR
  147. 5122 [129]JJ[178]1[164]NV
  148. 5123 PR[178]PP(JJ)
  149. 5124 V%(PP(JJ),JJ)[178]V%(PQ(JJ),JJ):W%(PP(JJ),JJ)[178]W%(PQ(JJ),JJ)
  150. 5125 PQ(JJ)[178]PQ(JJ)[170]1:PP(JJ)[178]PP(JJ)[170]1
  151. 5126 [139] PQ(JJ)[179]PR [167] 5124
  152. 5127 [130] JJ
  153. 5129 [130]KK
  154. 5130 KK[178]PP(1)[171]1
  155. 5140 [129]JJ[178]0[164]NV[171]1
  156. 5150 [151]VV[170]7[172]JJ[170]5,16[172]AT[170]D
  157. 5160 [151] VV[170]7[172]JJ[170]6,16[172]S
  158. 5170 [130]JJ
  159. 5180 [151]VV[170]24,15
  160. 5190 [142]
  161. 6100 [143] MACHINE CODE ROUTINE TO SERVICE SPRITES  AND SOUND GENERATORS
  162. 6110 [143] IT UPDATES THEIR POSITION EVERY INTERRUPT
  163. 6120 [131]165,47,133,251,165,48,133,252,160,0,177,251,201,83,208,8,200,177,251
  164. 6130 [131]201,80,240,38,136,200,200,177,251,133,253,200,177,251,133,254,24,165,251
  165. 6140 [131]101,253,133,251,165,252,101,254,133,252,197,50,208,212,165,251
  166. 6150 [131]197,49,208,206,76,49,234
  167. 6160 [131]152,24,105,6,168,162,0,200,200,24,177,251,41,1,240,1,56,102,255,200
  168. 6170 [131]177,251  ,157,0,208,200,177,251,157,1,208,232,232,200,224,16,208,225
  169. 6180 [131]165,255,141,  16,208
  170. 6182 [131]162,0,200,200,177,251,240,29,169,0,157,4,212,177,251,157,4,212,169,0
  171. 6184 [131]145,251,200,177,251,157,1,212,200,177,251,157,0,212,76,208,3
  172. 6186 [131]200,200,200,138,24,105,7,170,224,21,208,209,76,49,234
  173. 6190 [143] INSERT WEDGE (CODE AT 988)
  174. 6200 [131]120,169,64,141,20,3,169,3,141,21,3,88,96
  175. 6205 [143] SPRITE DATA- BRIGHT DOT
  176. 6210 [131]0,0,0,0,0,0,0,0,0
  177. 6215 [131]0,0,0,0,0,0,0,0,0
  178. 6220 [131]0,0,0,0,0,0,0,24,0
  179. 6225 [131]0,60,0,0,60,0,0,24,0
  180. 6230 [131]0,0,0,0,0,0,0,0,0
  181. 6235 [131]0,0,0,0,0,0,0,0,0
  182. 6240 [131]0,0,0,0,0,0,0,0,0
  183. 6300 [143] GOLDEN RAIN(1)
  184. 6310 [131]0,32,0,8,132,136,18,0,2
  185. 6315 [131]32,162,164,9,16,146,48,105,40
  186. 6320 [131]64,146,2,0,170,160,148,100,0
  187. 6325 [131]0,90,2,72,36,144,0,124,8
  188. 6330 [131]66,124,32,0,124,0,144,124,4
  189. 6335 [131]66,124,136,0,124,0,32,124,36
  190. 6340 [131]0,124,0,77,125,18,0,124,0
  191. 6350 [143] GOLDEN RAIN(2)
  192. 6360 [131]0,64,0,17,2,68,36,0,1
  193. 6365 [131]65,33,82,16,0,0,33,105,8
  194. 6370 [131]16,146,32,1,18,2,4,36,160
  195. 6375 [131]144,72,0,0,36,2,72,124,144
  196. 6380 [131]0,124,8,66,124,33,0,124,0
  197. 6385 [131]144,124,4,66,124,136,32,124,0
  198. 6390 [131]0,124,4,5,124,0,72,125,18
  199. 6400 [143] GOLDEN RAIN(3)
  200. 6410 [131]0,128,0,34,1,34,72,64,4
  201. 6415 [131]130,16,161,16,128,4,2,36,128
  202. 6420 [131]16,146,8,32,8,32,2,164,2
  203. 6425 [131]4,72,160,144,36,0,0,124,2
  204. 6430 [131]72,124,144,0,124,8,66,124,33
  205. 6440 [131]0,124,0,144,124,4,66,124,136
  206. 6445 [131]32,124,0,0,124,4,5,124,0
  207. 6450 [143] EXPLOSION(1)
  208. 6455 [131]0,0,0,0,0,0,0,0,0
  209. 6460 [131]0,0,0,0,0,0,0,0,0
  210. 6465 [131]0,0,0,0,56,0,0,198,0
  211. 6470 [131]1,147,0,3,73,128,2,16,192
  212. 6475 [131]3,66,192,1,137,128,0,195,0
  213. 6480 [131]0,124,0,0,0,0,0,0,0
  214. 6485 [131]0,0,0,0,0,0,0,0,0
  215. 6500 [143] EXPLOSION(2)
  216. 6505 [131]0,0,0,0,0,0,0,0,0
  217. 6510 [131]0,0,0,0,16,0,0,16,128
  218. 6515 [131]8,57,0,4,198,0,3,33,128
  219. 6520 [131]6,0,192,12,72,224,12,4,120
  220. 6525 [131]62,0,96,6,16,192,3,36,192
  221. 6530 [131]5,129,160,8,254,16,0,48,0
  222. 6535 [131]0,32,0,0,32,0,0,0,0
  223. 6550 [143] EXPLOSION(3)
  224. 6555 [131]0,16,0,0,16,0,0,16,16
  225. 6560 [131]73,16,32,32,17,64,18,20,128
  226. 6565 [131]8,17,64,68,2,16,2,84,0
  227. 6570 [131]17,9,8,32,0,32,0,72,127
  228. 6575 [131]254,0,0,0,2,4,18,32,72
  229. 6580 [131]4,36,32,8,160,144,18,32,8
  230. 6585 [131]32,33,4,64,32,2,0,32,0
  231. 6600 [143] MOON
  232. 6605 [131]252,0,0,63,240,0,15,252,0
  233. 6610 [131]7,255,128,3,255,240,1,255,248
  234. 6615 [131]0,255,252,0,127,254,0,63,254
  235. 6620 [131]0,63,255,0,63,255,0,63,255
  236. 6625 [131]0,63,255,0,127,254,0,127,254
  237. 6630 [131]0,255,252,1,255,248,3,255,224
  238. 6635 [131]7,255,128,31,248,0,254,0,0
  239. 6650 [143] PARACHUTE
  240. 6655 [131]0,254,0,15,255,224,62,251,248
  241. 6660 [131]126,250,252,254,26,254,254,216,126
  242. 6665 [131]126,30,252,127,255,252,32,0,8
  243. 6670 [131]16,0,16,8,0,32,4,0,64
  244. 6675 [131]2,0,128,1,1,0,0,130,0
  245. 6680 [131]0,84,0,0,124,0,0,56,0
  246. 6685 [131]0,40,0,0,108,0,0,0,0
  247. 6700 [143] COMMODORE BALLOON
  248. 6705 [131]0,127,0,1,255,192,3,255,224
  249. 6710 [131]3,231,224,7,217,240,7,223,240
  250. 6715 [131]7,217,240,3,231,224,3,255,224
  251. 6720 [131]3,255,224,2,255,160,1,127,64
  252. 6725 [131]1,62,64,0,156,128,0,156,128
  253. 6730 [131]0,73,0,0,73,0,0,62,0
  254. 6735 [131]0,62,0,0,62,0,0,28,0
  255. 7500 [143] GAVOTTE BY G.F.HANDEL
  256. 7502 [131]3,2,0,10,0,15
  257. 7505 [131]1
  258. 7510 [131]"(ONOQOJSQSTSQOVTSQOQONOQOJSQSTSQOVTSQOQ"
  259. 7520 [131]"811112211112222222241111221111222222224"
  260. 7530 [131]"((JJLOLNOLIJ(JJLOLNOLIJ"
  261. 7540 [131]"88442211222484422112224"
  262. 7550 [131]"(7;>CBCECB@GEC<@><;97;>CBCECB@GEC<@>"
  263. 7560 [131]"842211112222222211114221111222222224"
  264. 7565 [131]2
  265. 7570 [131]"JHGLHGEJGECHGECBCBCEC>HGHJGEGHEJCBCEGEC"
  266. 7580 [131]"211421142112222411112211111111221111224"
  267. 7590 [131]"CGECE(ECBC(CC@>(((CCBCECB;"
  268. 7600 [131]"42112221122222288621111224"
  269. 7610 [131]";7496427;479;><;9;79BC7><;@<>27"
  270. 7620 [131]"4224211222222222222222211222224"
  271. 8000 [143] MARINES MARCH
  272. 8010 [131]2,2,0,12,0,1
  273. 8015 [131]1
  274. 8020 [131]"(AEHHHHHMHEFHHFCAAEHHHHHMHEFHHFCAML"
  275. 8030 [131]"81122223121122226112222312112222611"
  276. 8040 [131]"(5599(9(9(9(9999(44(4(4(459999(99(9(9(9(9999(44(4(4(459999("
  277. 8050 [131]"81111111111111122111111111111221111111111112211111111111122"
  278. 8055 [131]1
  279. 8060 [131]"JFJFHJHMLJFJMHAEHHHHHMHEFHHFCA"
  280. 8070 [131]"222231211222261122223121122227"
  281. 8080 [131]"(:(5(:(5(9999((:(5(:(5(9999(99(9(9(9(9999(44(4(4(459999"
  282. 8090 [131]"1111111111112211111111111122111111111111221111111111113"
  283. 8500 [143] ANDANTE
  284. 8510 [131]2,2,3,11,0,17
  285. 8515 [131]2
  286. 8520 [131]"(MOMOQMHHHOQOQROHHHTLMOLMVSOMLTQVTSST("
  287. 8530 [131]"44111122224111122224111141111111122422"
  288. 8540 [131]"(EHEAEHEHEAHMLMOLHLOLOLHE(HJGHMOOOH("
  289. 8550 [131]"444111111114111111111111224442222422"
  290. 8595 [131]2
  291. 8600 [131]"TQRTVROQRTRQOQMRQO(RQOMLTRQOMJVROMLLM("
  292. 8610 [131]"41111411111111224224111141111111122422"
  293. 8620 [131]"(QNJ(OLHMLJOMAEAH(OLH(EMJ(GH((A("
  294. 8630 [131]"22222222222211112422222223122422"
  295. 8700 [143] ALLEGRO
  296. 8710 [131]  2,2,1,9, 0,10
  297. 8715 [131]2
  298. 8720 [131]"(QTRQOM(MOOOOQM(MOOOOQMOQRTVXYVQST(TVXYVSTVSTVXYTXVTVXYVSTVST("
  299. 8730 [131]"82222242222211422222112111111222242211111111111111111111111142"
  300. 8740 [131]"(MQOMHE(EHHHHE(EHHHHE(MLOLOMOMOLOLOMOMOL("
  301. 8750 [131]"82222242222224222222448222222222222222242"
  302. 8795 [131]2
  303. 8800 [131]"HTQVTROTRQMRQOMT(QTRQOMOQRTVXYXMOQRTQOMXY(T(R(O(M(HMMMHQQQMTOQM("
  304. 8810 [131]"2626262626444424222222111111118111111118222222224222222222243142"
  305. 8820 [131]"(AMJOMLHMLKJHFGH(MQOMHE(QROTRQ(QROTRQ(Q(O(H(E(<AAA<EEEAH<A("
  306. 8830 [131]426262626244444422222242222224222222222222224222222222224442"
  307. 10210 FORJ=832 TO 1000
  308. 10220 READA:POKEJ,A:NEXTJ
  309. 10230 SYS(988)
  310. 10240 REM MAKE SPACE FOR SPRITES
  311. 10250 A=PEEK(43)+256*PEEK(44)
  312. 10260 IF A> 2048+14*64THEN 10290
  313. 10270 POKE 43,PEEK(A):POKE 44,PEEK(A+1):GOTO10250
  314. 10290 GOTO4000
  315. 10300 FOR J=1TO10:PRINTC$(J):  Q0=2048+64*J:GOSUB11000:NEXTJ
  316. 10305 FORJ=11TO16:PRINT C$(J):FORK=1TO 200:NEXTK,J
  317. 10310 V=208*256
  318. 10312 PRINT" NOW TURN UP THE VOLUME ... AND WAIT"
  319. 10315 GOSUB 5000:GOSUB100
  320. 10318 FORK=1TO2000:NEXTK
  321. 10320 POKE53280,0:POKE 53281,0:PRINT"[147]"
  322. 10330 POKEVV+24,0
  323. 10340 PRINT "[147]  [155]  NIGHT FALLS ....AND HERE IS"
  324. 10350 PRINT" A SHORT DISPLAY OF FIREWORKS FOR YOU
  325. 10360 [129] J[178]1[164] 30:[151] 1134[170]460[172][187](0),46:[129]K[178]1[164]100:[130]K,J
  326. 10400 [143]SET UP MAIN LOOP
  327. 10405 SP(8)[178]2[174]31[170]2[174]16:SP(9)[178]2[174]31[170]2[174]16
  328. 10410 A[178]2[174]31:VV[178]212[172]256:[151]VV[170]19,12:[151]VV[170]20,0
  329. 10420 SP(0)[178]A[170]50[172]256[170]200:SP(1)[178]A[170]280[172]256[170]180
  330. 10430 SP(7)[178]A[170]250[172]256[170]80:[151]V[170]46,7:[151] 2047,40:[151]V[170]21,128
  331. 10440 NO[178]2[174]31[170]129[172]2[174]16[170]5000:[151]VV[170]24,15
  332. 10450 CW[178]1:GR[178]1:QA[178]1:BA[178]1:[141]5040:TQ[178]0
  333. 10460 [151] 2042,33:[151]2043,33:
  334. 10470 [151] V[170]23, 3:[151] V[170]29, 3
  335. 10480 [137] 2000
  336. 11000 [143] SET UP A SPRIOITE IN LOCATION Q0
  337. 11010 [129]JJ[178]0[164]62
  338. 11020 [135] KK
  339. 11030 [151]Q0[170]JJ,KK
  340. 11040 [130]JJ
  341. 11050 [142]
  342.